home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / CONTENTS.BAS < prev    next >
BASIC Source File  |  1995-12-27  |  366b  |  22 lines
  1.  
  2.     texteditor #1.te, 10, 10, 200, 200
  3.     open "contents example" for window as #1
  4.  
  5.     open "c:\config.sys" for input as #2
  6.     t$ = input$(#2, lof(#2))
  7.     close #2
  8.  
  9.     print #1.te, "!contents t$";
  10.  
  11.     input r$
  12.  
  13.     print #1.te, "!contents?";
  14.     input #1.te, s$
  15.     notice s$
  16.  
  17.     input r$
  18.  
  19.     print #1.te, "!contents t$";
  20.  
  21.     input r$
  22.